home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / websol / main.dfm / main.txt < prev   
Encoding:
Text File  |  1997-08-15  |  2.4 KB  |  118 lines
  1. object formMain: TformMain
  2.   Left = 273
  3.   Top = 165
  4.   Width = 368
  5.   Height = 203
  6.   HorzScrollBar.Range = 289
  7.   VertScrollBar.Range = 112
  8.   AutoScroll = False
  9.   Caption = 'formMain'
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   Scaled = False
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 96
  19.   TextHeight = 16
  20.   object IAG_Region1: TIAG_Region
  21.     Width = 360
  22.     Height = 176
  23.     Align = alClient
  24.     Color = clAqua
  25.     ParentColor = False
  26.     AutoClear = True
  27.     MaxDocumentSize = 0
  28.     OnAfterShow = IAG_Region1AfterShow
  29.     SessionRequired = sreqDefault
  30.     ShowTag = False
  31.     SubmitRefreshesPage = False
  32.     object Label1: TLabel
  33.       Left = 36
  34.       Top = 34
  35.       Width = 257
  36.       Height = 16
  37.       AutoSize = False
  38.       Caption = 'Please guess the number: (1 to 100):'
  39.     end
  40.     object lablResponse: TLabel
  41.       Left = 35
  42.       Top = 98
  43.       Width = 225
  44.       Height = 16
  45.       AutoSize = False
  46.       Caption = 'lablResponse'
  47.       Font.Charset = DEFAULT_CHARSET
  48.       Font.Color = clNavy
  49.       Font.Height = -13
  50.       Font.Name = 'MS Sans Serif'
  51.       Font.Style = [fsBold]
  52.       ParentFont = False
  53.       Visible = False
  54.     end
  55.     object Label2: TLabel
  56.       Left = 36
  57.       Top = 136
  58.       Width = 60
  59.       Height = 16
  60.       AutoSize = False
  61.       Caption = 'Guess #'
  62.     end
  63.     object lablCount: TLabel
  64.       Left = 100
  65.       Top = 137
  66.       Width = 60
  67.       Height = 16
  68.       AutoSize = False
  69.       Caption = '0'
  70.     end
  71.     object editGuess: TEdit
  72.       Left = 34
  73.       Top = 66
  74.       Width = 121
  75.       Height = 24
  76.       TabOrder = 0
  77.       Text = 'editGuess'
  78.     end
  79.     object butnGuess: TIAG_Button
  80.       Left = 162
  81.       Top = 66
  82.       Width = 65
  83.       Height = 17
  84.       Caption = 'Guess'
  85.       Default = True
  86.       TabOrder = 1
  87.       OnClick = butnGuessClick
  88.     end
  89.   end
  90.   object Variables: TIAG_Variables
  91.     Left = 258
  92.     Top = 58
  93.   end
  94.   object intvMagicNo: TIntegerVar
  95.     VariableName = 'MagicNo'
  96.     CheckRange = False
  97.     DefaultValue = -1
  98.     Maximum = 0
  99.     Minimum = 0
  100.     Left = 147
  101.     Top = 52
  102.   end
  103.   object intvGuessCount: TIntegerVar
  104.     LinkedControl = lablCount
  105.     VariableName = 'GuessCount'
  106.     CheckRange = False
  107.     DefaultValue = 1
  108.     Maximum = 0
  109.     Minimum = 0
  110.     Left = 157
  111.     Top = 62
  112.   end
  113.   object StringVar1: TStringVar
  114.     Left = 166
  115.     Top = 74
  116.   end
  117. end
  118.